home *** CD-ROM | disk | FTP | other *** search
/ Aminet 22 / Aminet 22 (1997)(GTI - Schatztruhe)[!][Dec 1997].iso / Aminet / dev / src / ConfigFileSrc.lha / ConfigFileSrc12 / RexxLibrary / Dispatch.asm < prev    next >
Encoding:
Assembly Source File  |  1997-10-02  |  532 b   |  30 lines
  1. *
  2. *  $PROJECT: RexxConfigFile.library
  3. *  $FILE: Dispatch.h
  4. *  $DESCRIPTION: Func entry for the ARexx interface.
  5. *
  6. *  (C) Copyright 1997 Marcel Karas
  7. *      All Rights Reserved.
  8. *
  9.  
  10.     XREF    _RexxDispatch
  11.     XDEF    _AsmRexxDispatch
  12.  
  13.     SECTION    text,CODE
  14.  
  15. *---------------------------------------------------------------------------
  16.  
  17. _AsmRexxDispatch:
  18.  
  19.     SUBQ.L    #4,SP
  20.     MOVE.L    SP,-(SP)
  21.     MOVE.L    A0,-(SP)
  22.     BSR.W        _RexxDispatch
  23.     ADDQ.L    #8,SP
  24.     MOVEA.L    (SP)+,A0
  25.     RTS
  26.  
  27. *---------------------------------------------------------------------------
  28.  
  29.     END
  30.